home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 055a.dms / 055a.adf / READERS_SOURCE.LHA / READERS_SOURCE / A_CAMPBELL / AJC-GRASS-SCAPE.AMOS / AJC-GRASS-SCAPE.amosSourceCode
AMOS Source Code  |  1992-02-26  |  564b  |  42 lines
  1. '
  2. ' "GRASS SCAPE" By Andrew Campbell   
  3. '
  4.  
  5. Dim X(100),Y(100)
  6.  
  7. Screen Open 0,640,256,16,Hires
  8. Curs Off : Flash Off : Hide On : Cls 0
  9. Palette 0,$10,$20,$30,$40,$50,$60,$70,$80,$90,$A0,$B0,$C0,$D0,$E0,$F0
  10. Ink 1,0
  11. Key Speed 10,1
  12.  
  13. SCAPES:
  14.  
  15. NPS=100
  16. SIZE=0
  17.  
  18. For I=1 To NPS
  19.  X(I)=50+I*4
  20.  Y(I)=50
  21. Next I
  22.  
  23. For J=1 To 50
  24.  Inc SIZE
  25.  Gr Locate X(1),Y(1)
  26.  For I=1 To NPS
  27.   If Mouse Key=2 : Edit : End If 
  28.   R=Rnd(5)+1
  29.   Add Y(I),R
  30.   Ink R
  31.   For A=1 To 5
  32.    Draw To X(I),Y(I)+A
  33.   Next A
  34.  Next I
  35. Next J
  36.  
  37. Repeat : Until Mouse Key
  38. If Mouse Key=2 : Edit : End If 
  39.  
  40. Cls 0
  41.  
  42. Goto SCAPES